home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / demo / vtskt10i.zip / FTPGLBL.BAS < prev    next >
BASIC Source File  |  1994-02-01  |  720b  |  18 lines
  1. ' parms used to communicate between the connect form and ftp main form
  2.  
  3. Global ipname As String
  4. Global userid As String
  5. Global password As String
  6. Global account As String
  7.  
  8. ' mouse pointer modes
  9.  
  10. Global Const DEFAULT = 0
  11. Global Const HOURGLASS = 11
  12.  
  13. ' following functions allow us to read and write the vtftp.ini file
  14.  
  15. Declare Function GetINIString Lib "kernel" Alias "GetPrivateProfileString" (ByVal app As String, ByVal key As String, ByVal def As String, ByVal ret As String, ByVal retsz As Integer, ByVal fn As String) As Integer
  16. Declare Function PutINIString Lib "kernel" Alias "WritePrivateProfileString" (ByVal app As String, ByVal key As String, ByVal arg As Any, ByVal fn As String) As Integer
  17.  
  18.